home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / modulesmc.lha / ModulesMC1 / writef.e < prev    next >
Encoding:
Text File  |  1994-11-21  |  294 b   |  10 lines
  1. /* Change MODULE '*stringf20' to whatever is appropriate for your system. */
  2. OPT OSVERSION=39  /* you won't need this if you do the above.  */
  3. OPT MODULE
  4. MODULE '*stringf20'
  5. EXPORT PROC writef(format,streamptr=NIL:PTR TO LONG)
  6. DEF s[240]:STRING
  7. stringf(s,format,streamptr)
  8. PutStr(s)
  9. ENDPROC D0
  10.